home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / P-New PET 1983 / (p)l2.d64 / comaldice.l < prev    next >
Text File  |  2007-04-28  |  1KB  |  60 lines
  1. 0001 // FROM DENMARK - INSTRUTEK
  2. 0002 // DEMO OF ROLLING DICE
  3. 0005 TRAP ESC-
  4. 0006 POKE 59468,12 // GRAPHICS
  5. 0010 DIM CURS$ OF 1
  6. 0020 PRINT "ôTYPE RÆOLL OR  QÆUIT"
  7. 0030 REPEAT 
  8. 0040   TRYK
  9. 0050 UNTIL FALSE
  10. 0060 PROC TRYK 
  11. 0070   REPEAT 
  12. 0080     CURS$:=GET$(0,1)
  13. 0090   UNTIL CURS$="R" OR CURS$="Q"
  14. 0100   IF CURS$="Q" THEN END 
  15. 0110   KAST:=RND(1,6)
  16. 0120   PRINT ""
  17. 0130   CASE KAST OF
  18. 0140   WHEN 1
  19. 0150     PRINT "╧úúú╨"
  20. 0160     PRINT "Ñ   º"
  21. 0170     PRINT "Ñ ╤ º"
  22. 0180     PRINT "Ñ   º"
  23. 0190     PRINT "╠ñññ║"
  24. 0240   WHEN 2
  25. 0250     PRINT "╧úúú╨"
  26. 0260     PRINT "Ñ╤  º"
  27. 0270     PRINT "Ñ   º"
  28. 0280     PRINT "Ñ  ╤º"
  29. 0290     PRINT "╠ñññ║"
  30. 0340   WHEN 3
  31. 0350     PRINT "╧úúú╨"
  32. 0360     PRINT "Ñ╤  º"
  33. 0370     PRINT "Ñ ╤ º"
  34. 0380     PRINT "Ñ  ╤º"
  35. 0390     PRINT "╠ñññ║"
  36. 0440   WHEN 4
  37. 0450     PRINT "╧úúú╨"
  38. 0460     PRINT "Ñ╤ ╤º"
  39. 0470     PRINT "Ñ   º"
  40. 0480     PRINT "Ñ╤ ╤º"
  41. 0490     PRINT "╠ñññ║"
  42. 0540   WHEN 5
  43. 0550     PRINT "╧úúú╨"
  44. 0560     PRINT "Ñ╤ ╤º"
  45. 0570     PRINT "Ñ ╤ º"
  46. 0580     PRINT "Ñ╤ ╤º"
  47. 0590     PRINT "╠ñññ║"
  48. 0640   OTHERWISE 
  49. 0650     PRINT "╧úúú╨"
  50. 0660     PRINT "Ñ╤ ╤º"
  51. 0670     PRINT "Ñ╤ ╤º"
  52. 0680     PRINT "Ñ╤ ╤º"
  53. 0690     PRINT "╠ñññ║"
  54. 0700   ENDCASE 
  55. 0710 ENDPROC TRYK
  56. 9000 //
  57. 9010 // AVAILABLE FROM COMAL USER GROUP
  58. 9020 //                5501 GROVELAND TER
  59. 9030 //                MADISON WI 53716
  60.